home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pulp 2
/
Pulp_02_1999_POL_de.d64
/
n2BB.CCCC. 2 B
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
59 lines
0 poke53265,peek(53265)and239
1 dimw$(300):poke53281,0:poke53280,0:poke650,128:
2 fori=1to15:poke211,0:poke214,i:sys58640
3 print"[147][156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
4 poke211,0:poke214,16:sys58640:print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
5 goto10
7 poke53265,peek(53265)or 16:return
10 forr=1to30:reada$:w$(r)=a$:next
11 poke211,0:poke214,17:sys58640:
12 print" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] ";:u$="mag"
13 print"[213][203][151] <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]> [202][201]";
14 print"[194][155] [176][174][176][195] [176][195][195] [174] [176] [194]";
15 print"[194] [194][173][189] [171][195] [194] [176][174] [194] [194]";
16 print"[194][155] [189] [173][195][195] [173][195][189][173][195][189] [194]";
17 print"[202][201][151] <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]> [213][203]";
18 print" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]";:gosub7
20 x=0:y=-1
21 fori=1to15:poke211,1:poke214,i:sys58640:print"[154]"w$(x+i):next:goto22
22 geta$:
23 ifa$=chr$(13)then50
24 if a$="."andx<30thenx=x+15:goto21
25 if a$=","andx>0thenx=x-15:goto21
26 goto22
50 poke828,0:printchr$(147)chr$(17):print"[144]load"chr$(34)"m1*"chr$(34)",8"
51 printchr$(17)chr$(17)chr$(17)chr$(17)"run"
52 poke631,13:poke632,13:poke198,2
53 printchr$(19);:end
100 data"--------------------------------------"
101 data" "
102 data" "
103 data" "
104 data"heute wird vorgestellt: "
105 data" "
106 data" "
107 data" "
108 data" diablo [146] "
109 data" "
110 data" "
111 data" "
112 data" "
113 data" "
114 data"--------------------------------------"
115 data"[158]buerg. name [154]sascha klemmstein "
116 data" "
117 data"[158]geburtstag[154] 23. 11. 1977 "
118 data" "
119 data"[158]groesse[154] 1920 mm "
120 data" "
121 data"[158][211]-movie[154] alle star trek filme "
122 data" "
123 data"[158][211]-song[154] 'siehst du mich im licht' "
124 data" "
125 data"[158][211]-food[154] alles mit nudeln und katzen "
126 data" "
127 data"[158][211]-game auf c64[154] frogger '93 "
128 data" "
129 data"[158]last words ich krieg euch alle !!! "
0